home *** CD-ROM | disk | FTP | other *** search
/ Apple Reference & Presen…rary 5 (Internal Edition) / Apple R&P Lib Internal v5.0.iso / 3-Presentations / Markets / Education / HyperCard In Education / Jekyll and Hyde Help / background_5115.txt < prev    next >
Text File  |  1990-02-20  |  7KB  |  309 lines
  1. -- background: 5115 from stack: in
  2. -- bmap block id: 5700
  3. -- flags: 0000
  4. -- background id: 0
  5. -- name: 
  6. ----- HyperTalk script -----
  7. --   This is a template for the multiple choice questions on
  8. --                  Dr. Jekyll and Mr. Hyde
  9. --               Abridged by Dr. Frank Laurence
  10. -----------------------------------------------------------------------
  11. -- Hidden Field names
  12. --    ifdone,answer,timestried
  13. -- Hidden Button Names
  14. --    hider, showreference
  15.  
  16.  
  17. On GRect TopH,TopV,Side,Margin
  18.   put Trunc(Side/Margin) into Margin1
  19.   If ((Side/Margin) <> Margin1) then
  20.     put (Margin*Margin1) into Width
  21.   end if
  22.  
  23.   put TopH into counter
  24.   put TopV into counter1
  25.   Repeat Margin1 times
  26.     choose line tool
  27.     Drag from Counter,TopV to TopH+Side,Counter1
  28.     Add Margin to counter
  29.     add margin to counter1
  30.   end repeat
  31.  
  32.   put TopH+Side into counter
  33.   put TopV into counter1
  34.   repeat margin1 times
  35.     drag from TopH+Side,Counter1 to Counter,TopV+Side
  36.     Subtract margin from counter
  37.     add margin to counter1
  38.   end repeat
  39.  
  40.   put TopH+Side into Counter
  41.   put TopV+Side into counter1
  42.   repeat margin1 times
  43.     drag from Counter,TopV+Side to TopH,Counter1
  44.     Subtract margin from counter1
  45.     subtract margin from counter
  46.   end repeat
  47.  
  48.   put TopH into Counter
  49.   put TopV+Side into Counter1
  50.   repeat margin1 times
  51.     drag from TopH,Counter1 to Counter,TopV
  52.     Subtract margin from counter1
  53.     add margin to counter
  54.   end repeat
  55.   choose browse tool
  56. end Grect
  57.  
  58.  
  59. on OpenThisBackground
  60.   lock screen
  61.   go to next card
  62.   repeat with Counter = 1 to ((Number of cards of this background)-1)
  63.     set the hilite of card button "1A" to false
  64.     set the hilite of card button "1B" to false
  65.     set the hilite of card button "1C" to false
  66.     set the hilite of card button "1D" to false
  67.     put "0" into field "TimesTried"
  68.     put "" into field "ifdone"
  69.     show card button "Hider"
  70.     Hide card button "showreference"
  71.     get the name of this card
  72.     If it = "ScoreCard" then
  73.       put "0" into card field "right"
  74.       put "0" into card field "wrong"
  75.     end if
  76.     go to next card
  77.   end repeat
  78.   wait until the mouseclick
  79.   go to card "TheFirstCard"
  80.   hide message box
  81. end OpenThisBackground
  82.  
  83.  
  84. on ShowText CardId
  85.   push card
  86.   lock screen
  87.   go to card id CardId
  88.   show card button "TextHand1"
  89.   show card button "TextHand2"
  90.   unlock screen with dissolve
  91. end showtext
  92.  
  93.  
  94. -- part 1 (field)
  95. -- low flags: 00
  96. -- high flags: 2004
  97. -- rect: left=50 top=27 right=65 bottom=507
  98. -- title width / last selected line: 0
  99. -- icon id / first selected line: 0 / 0
  100. -- text alignment: 0
  101. -- font id: 3
  102. -- text size: 12
  103. -- style flags: 256
  104. -- line height: 16
  105. -- part name: Question
  106.  
  107.  
  108. -- part 6 (field)
  109. -- low flags: 00
  110. -- high flags: 0002
  111. -- rect: left=98 top=82 right=117 bottom=504
  112. -- title width / last selected line: 0
  113. -- icon id / first selected line: 0 / 0
  114. -- text alignment: 0
  115. -- font id: 3
  116. -- text size: 12
  117. -- style flags: 0
  118. -- line height: 16
  119. -- part name: 
  120.  
  121.  
  122. -- part 10 (field)
  123. -- low flags: 00
  124. -- high flags: 0002
  125. -- rect: left=98 top=116 right=151 bottom=504
  126. -- title width / last selected line: 0
  127. -- icon id / first selected line: 0 / 0
  128. -- text alignment: 0
  129. -- font id: 3
  130. -- text size: 12
  131. -- style flags: 0
  132. -- line height: 16
  133. -- part name: 
  134.  
  135.  
  136. -- part 11 (field)
  137. -- low flags: 00
  138. -- high flags: 0002
  139. -- rect: left=98 top=150 right=185 bottom=504
  140. -- title width / last selected line: 0
  141. -- icon id / first selected line: 0 / 0
  142. -- text alignment: 0
  143. -- font id: 3
  144. -- text size: 12
  145. -- style flags: 0
  146. -- line height: 16
  147. -- part name: 
  148.  
  149.  
  150. -- part 12 (field)
  151. -- low flags: 00
  152. -- high flags: 0002
  153. -- rect: left=98 top=184 right=218 bottom=504
  154. -- title width / last selected line: 0
  155. -- icon id / first selected line: 0 / 0
  156. -- text alignment: 0
  157. -- font id: 3
  158. -- text size: 12
  159. -- style flags: 0
  160. -- line height: 16
  161. -- part name: 
  162.  
  163.  
  164. -- part 14 (field)
  165. -- low flags: 00
  166. -- high flags: 0001
  167. -- rect: left=2 top=33 right=57 bottom=48
  168. -- title width / last selected line: 0
  169. -- icon id / first selected line: 0 / 0
  170. -- text alignment: 0
  171. -- font id: 3
  172. -- text size: 18
  173. -- style flags: 256
  174. -- line height: 24
  175. -- part name: Numbers
  176.  
  177.  
  178. -- part 15 (button)
  179. -- low flags: 00
  180. -- high flags: A003
  181. -- rect: left=27 top=223 right=254 bottom=160
  182. -- title width / last selected line: 0
  183. -- icon id / first selected line: 0 / 0
  184. -- text alignment: 1
  185. -- font id: 0
  186. -- text size: 12
  187. -- style flags: 0
  188. -- line height: 16
  189. -- part name: CHECK MY ANSWER
  190. ----- HyperTalk script -----
  191. on mouseUp
  192.   get field "TimesTried"
  193.   put field "answer" into Name
  194.   if (the hilite of button Name = True) then
  195.     set visible of button "Hider" to false
  196.     add 1 to field "TimesTried"
  197.     put "True" into field "ifdone"
  198.     hide card button "ShowReference"
  199.   else
  200.     if (field "ifdone" is empty) and (it<3) then
  201.       add 1 to field "TimesTried"
  202.       if it = 2 then
  203.         show card button "ShowReference"
  204.       end if
  205.     end if
  206.   end if
  207. end mouseUp
  208.  
  209.  
  210.  
  211. -- part 20 (button)
  212. -- low flags: 00
  213. -- high flags: 0000
  214. -- rect: left=427 top=307 right=335 bottom=457
  215. -- title width / last selected line: 0
  216. -- icon id / first selected line: 27009 / 27009
  217. -- text alignment: 1
  218. -- font id: 0
  219. -- text size: 12
  220. -- style flags: 0
  221. -- line height: 16
  222. -- part name: Next
  223. ----- HyperTalk script -----
  224. On Mouseup
  225.   show card field "NextExplain"
  226. end Mouseup
  227.  
  228.  
  229.  
  230. -- part 21 (button)
  231. -- low flags: 00
  232. -- high flags: 0000
  233. -- rect: left=395 top=307 right=335 bottom=425
  234. -- title width / last selected line: 0
  235. -- icon id / first selected line: 9301 / 9301
  236. -- text alignment: 1
  237. -- font id: 0
  238. -- text size: 12
  239. -- style flags: 0
  240. -- line height: 16
  241. -- part name: Previous
  242. ----- HyperTalk script -----
  243. On Mouseup
  244.   show card field "NextExplain"
  245. end Mouseup
  246.  
  247.  
  248.  
  249. -- part 23 (field)
  250. -- low flags: 80
  251. -- high flags: 0002
  252. -- rect: left=297 top=238 right=255 bottom=499
  253. -- title width / last selected line: 0
  254. -- icon id / first selected line: 0 / 0
  255. -- text alignment: 0
  256. -- font id: 3
  257. -- text size: 12
  258. -- style flags: 0
  259. -- line height: 16
  260. -- part name: TimesTried
  261.  
  262.  
  263. -- part 24 (field)
  264. -- low flags: 80
  265. -- high flags: 0002
  266. -- rect: left=296 top=259 right=275 bottom=499
  267. -- title width / last selected line: 0
  268. -- icon id / first selected line: 0 / 0
  269. -- text alignment: 0
  270. -- font id: 3
  271. -- text size: 12
  272. -- style flags: 0
  273. -- line height: 16
  274. -- part name: Answer
  275.  
  276.  
  277. -- part 25 (field)
  278. -- low flags: 80
  279. -- high flags: 0002
  280. -- rect: left=55 top=312 right=330 bottom=260
  281. -- title width / last selected line: 0
  282. -- icon id / first selected line: 0 / 0
  283. -- text alignment: 0
  284. -- font id: 3
  285. -- text size: 12
  286. -- style flags: 0
  287. -- line height: 16
  288. -- part name: ifdone
  289.  
  290.  
  291. -- part 27 (button)
  292. -- low flags: 00
  293. -- high flags: A002
  294. -- rect: left=16 top=319 right=340 bottom=76
  295. -- title width / last selected line: 0
  296. -- icon id / first selected line: 0 / 0
  297. -- text alignment: 1
  298. -- font id: 0
  299. -- text size: 12
  300. -- style flags: 0
  301. -- line height: 16
  302. -- part name: Return
  303. ----- HyperTalk script -----
  304. on mouseUp
  305.   global returncard
  306.   go to returncard
  307. end mouseUp
  308.  
  309.